home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emac16ds.zip / MINTLAST.ASM < prev    next >
Assembly Source File  |  1992-01-28  |  3KB  |  113 lines
  1. ;History:62,1
  2.     include    memory.def
  3.  
  4. code    segment public
  5.         public  lastcode
  6. lastcode        label   byte
  7. code    ends
  8.  
  9. _DATA    segment    public
  10. _DATA    ends
  11.  
  12. data    segment public
  13.  
  14.         db      -1                      ;any non-zero value will do here.
  15.  
  16.         public  OUTPATSIZE, outpat
  17. OUTPATSIZE      equ     200
  18. outpat          db      OUTPATSIZE dup(?)
  19.  
  20.     even                ;we want our stack word-aligned.
  21.         public  stackp
  22.     db    256 dup(055h,0aah)
  23. stackp  label   byte
  24.  
  25.         public  lomem, lomem_end
  26. lomem   label   byte
  27. db '#(rd)#(ow,(',CR,LF
  28. db 'Freemacs, a programmable editor - Version )##(lv,vn)(',CR,LF
  29. db 'Copyright (C) Russell Nelson 1986-1991',CR,LF
  30. db '))'
  31. db '#(ds,Farglist,(SELF,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9))'
  32. db '#(ds,Fsearch-path,(#(SELF-do,##(fm,env.PATH,;,(##(gn,env.PATH,1000))))'
  33. db '#(rs,env.PATH)))'
  34. db '#(mp,Fsearch-path,#(Farglist))'
  35. db '#(ds,Fsearch-path-do,(#(==,arg1,,,('
  36. db '    #(==,#(ff,arg1\emacs.ed,;),,('
  37. db '        #(SELF,##(fm,env.PATH,;,(##(gn,env.PATH,1000))))'
  38. db '    ),(#(ds,env.EMACS,arg1\)))'
  39. db '))))'
  40. db '#(mp,Fsearch-path-do,#(Farglist))'
  41. db '#(ev)'
  42.  
  43. ; Did they tell us where to look?  If so, make sure it's got backslashes and a
  44. ; trailing slash.
  45.  
  46. db '#(n?,env.EMACS,('
  47. db '    #(mp,env.EMACS,,/)'
  48. db '    #(ds,env.EMACS,##(env.EMACS,\))'
  49. db '    #(gn,env.EMACS,#(--,#(nc,##(env.EMACS)),1))'
  50. db '    #(==,##(go,env.EMACS)#(rs,env.EMACS),\,,('
  51. db '        #(ds,env.EMACS,##(env.EMACS)\)'
  52. db '    ))'
  53. db '))'
  54.  
  55. ; Did they tell us where to look?  If not, look where we came from for emacs.ed.
  56.  
  57. db '#(n?,env.EMACS,,('
  58. db     '#(ds,temp,##(env.FULLPATH))'
  59. db    '#(mp,temp,,EMACS.EXE)'
  60. db    '#(==,#(ff,##(temp,EMACS.ED),;),,,('
  61. db        '#(ds,env.EMACS,##(temp))'
  62. db    '))'
  63. db '))'
  64.  
  65. ; Did we find emacs.ed in the directory we came from?  If not, search the
  66. ; path for emacs.ed.
  67.  
  68. db '#(n?,env.EMACS,,(#(Fsearch-path)))'
  69.  
  70. ; Did we find it on the path?  If not, look in \emacs on the current drive.
  71.  
  72. ; db '#(n?,env.EMACS,,(#(==,#(ff,\emacs\emacs.ed,;),,,(#(ds,env.EMACS,\emacs\)))))'
  73.  
  74. db '#(an,Loading #(env.EMACS)emacs.ed...)'
  75. db '#(==,#(ll,#(env.EMACS)emacs.ed),,('
  76. db '    #(an,Starting editor...)'
  77. db '    #(##(lib-name)&setup)'
  78. db '),('
  79. db '    #(an)'
  80. db '    #(ow,(',CR,LF
  81. db 'Cannot find the Freemacs .ED files))'
  82. db '    #(==,#(rf,#(env.EMACS)boot.min),,('
  83. db '        #(ow,(, but we did find the boot files.',CR,LF
  84. db 'Compiling the .ED files from the .MIN sources...',CR,LF
  85. db '))'
  86.   if 1
  87. db '        #(sp,[)#(rm,])#(dm,])'
  88.   else
  89. db '        #(rm,[)#(dm,[)'
  90.   endif
  91. db '    ),('
  92. db '        #(ow,('
  93. db '. - Set the environment string EMACS to the subdirectory',CR,LF
  94. db 'containing the Freemacs .ed files.  For example, EMACS=c:\freemacs\',CR,LF
  95. db 'Press any key to return to DOS...))'
  96. db '        #(it,10000)#(hl,1)'
  97. db '    ))'
  98. db '))'
  99. db ')'    ;this is the sentinel that marks the end of the active string.
  100. lomem_end    label    byte
  101.  
  102. data    ends
  103.  
  104.  
  105. bufseg    segment public
  106.  
  107.     public    bufseg_size
  108. bufseg_size    equ    $
  109.  
  110. bufseg    ends
  111.  
  112.         end
  113.